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BACKGROUND OF THE INVENTION 
Over the last few decades, banks and other financial institutions, hereafter 
collectively referred to as "banks," have begun charging their clients for the services 
performed. These charges include, but are not limited to: deposit ticket charges, night bag 
deposits, electronic transmittal of information, returned check charges and postage. 
Banks no longer rely to the same extent as they have in the past on the income generated 
from loans. Bank officers have even attended seminars strictly targeted to increasing 
revenue through service charges. Even if the evolution of service charge revenue was 
unintentional, it has become a lucrative opportunity for many banks. 

Clients often receive cryptic monthly statements as to what charges they are 
actually paying for. Consider a scenario wherein supermarket aisles did not indicate the 
price of the food on the shelves. In addition, suppose the receipt did not include a detail 
of the food that was purchased or the price of each item. Instead, only a total due during 
that shopping trip was provided. Or, if the detail was included, it was not listed in readily 
understood terms, but only in the UPC Barcodes of the product. It would not be easy to 
comparison shop, or to determine better ways to shop, such as buying larger sizes of 
items you may use frequently. This scenario is analogous to the way service charges are 
presently handled between banks and their clients. Furthermore, the bank often deducts 



service charges from the earnings credit (Interest) posted to the clients' accounts. To 
continue the supermarket analogy, imagine if the receipt didn't tell you how much you 
actually spent that day, just a running total against some prepaid balance you may have 
on account with the supermarket. Banks may not have intentionally created these 
problems. However, these problems prevent clients from understanding and managing 
their charges effectively. 

These analogies illustrate how many large businesses (clients) currently interact 
with their banks. Coupled with the fact that charges imposed are not listed in layman's 
terms on the bank analysis, it has become extremely difficult for a client to control these 
charges. This weakens the client's financial and bargaining position and gives little 
leverage when negotiating with the client's bank. It also inhibits the client from attaining 
the highest possible earnings credit. 

Many clients have numerous locations (stores) throughout the country who use 
the same bank. The statements issued by the bank offer little help in determining charges 
per store, and do not provide the client's financial managers with the essential data 
required to make appropriate fiscal decisions. 

An additional problem for clients is that each bank uses its own set of terms to 
define its service charges and credits, thereby making it difficult or impossible for a client 
to comparison shop among banks for the best deal on service charges and credits. 

Accordingly, there is an unmet need for analysis tools to allow a client to more 
fully understand bank service charges and credits. The present invention fulfills such a 
need. 

SUMMARY OF THE INVENTION 
A first embodiment of the present invention provides a computer-implemented 
scheme for preparing bank service charge reports for banking activity of a client. In the 
scheme, an electronic translator is provided that converts service charge items of a 
plurality of individual banks, expressed in terminology of the respective individual banks, 
to a service description expressed in a standardized terminology. At least some of the 
service charge items of different banks have the same standardized service description. 
Bank service charge items and bank account data are inputted into a computer. The bank 
service charge items and bank account data are for a specified period of time for one or 

-2- 



more banks being used by a client. The bank service charge items and bank account data 
are obtained from one or more bank statements of a client and are expressed in the one or 
more statements in terminology used by the one or more banks. In the computer, one or 
more bank service charge reports are automatically created for the client from the 
inputted bank service charge items by using the electronic translator. Each bank service 
charge report provides a breakdown of bank service charges based upon the standardized 
service descriptions. 

A subset of the standardized service descriptions of bank service charges may 
define a total amount of a predefined type of bank service charge costs. In this scheme, 
the total amount of a predefined type of bank service charge costs is calculated by adding 
together the bank service charges in the subset. A total cost report is then created for the 
predefined type of bank service charge costs from the calculated total. The subset may 
define total depository costs, total check costs, total account maintenance costs, or any 
total of a service charge category. 

A historical database may be provided of average bank service charges for 
selected standardized service descriptions based upon bank service charges of a plurality 
of clients. The individually broken down bank service charges may then be compared to 
the average bank service charges. The comparison may be used by the client to identify 
potentially excessive bank service charges. Alternatively, a database of bank service 
charges may be provided for each of the standardized service descriptions based upon 
bank service charges of all of the banks used by the client. The individually broken down 
bank service charges for one of the client's banks may then be compared to the bank 
service charges for other banks used by the client. Again, the comparison may be used 
by the client to identify potentially excessive bank service charges. 

One of the standardized service charge items may be deposit ticket costs, wherein 
deposits have a predefined earnings credit rate. The deposit ticket costs and the earnings 
credit rate may be used to calculate a breakeven deposit amount wherein the earnings 
credit exceeds the cost of depositing money. 

In a second embodiment of the present invention, a similar process as described 
above is performed for earnings credit items. 



BRIEF DESCRIPTION OF THE DRAWINGS 

The file of this patent contains at least one drawing executed in color. Copies of 
this patent with color drawings will be provided by the Patent and Trademark Office 
upon request and payment of the necessary fee. 

Fig. 1 (provided in parts 1 and 2) summarizes reports generated by the present 
invention, and the information provided by the reports that is not currently available to a 
banking customer; 

Figs. 2-14 show examples of the reports summarized in Fig. 1; 

Fig. 15 is a schematic block diagram of a cross-reference table in accordance with 
the present invention; 

Fig. 16 shows an entry screen of a form used to collect and store service charges; 

Figs. 17-19 show the contents of tables used in the cross-reference table; 

Fig. 20A and Fig. 20B show screen displays for viewing bank description and 
service description data in the cross-reference table; 

Fig. 21 shows a table that stores client data; 

Fig. 22 is a flowchart of a history compilation process of the present invention; 

Fig. 23 shows the contents of a Bank Service Charge History table used for the 
history compilation process; 

Figs. 24 and 25 shows the contents of tables used in a dynamic compilation 
process; 

Figs. 26 and 27 are data entry screens used in the report generation process; 
Fig. 28 shows the contents of a Category table which is used to generate the report 
in Fig. 7; 

Fig. 29 is a screen display for selecting categories that the user wishes to appear in 
a report; 

Fig. 30 is a screen display for selectively choosing any combination of clients, 
banks, and/or service charges that the user wishes to appear in a report; 



Figs. 31 and 32 show excerpts from charts that are used to determine costs of a 
particular service charge category; and 

Fig. 33 is a screen display of a Working Sheet Form that is used to summarize 
service description items, and their actual costs and potential cost savings. 

DETAILED DESCRIPTION OF THE INVENTION 
Certain terminology is used herein for convenience only and is not to be taken as 
a limitation on the present invention. In the drawings, the same reference letters are 
employed for designating the same elements throughout the several figures. 

DEFINITIONS 

Comp Balance - balances on hand at bank, subject to the bank's earnings credit. 

Earnings Credit - interest earned on available client's assets, taken after the Federal 
Reserve requirement is deducted. 

Federal Reserve Requirement - amount by law which must be reserved by the bank for 
the Federal Reserve (non-earning asset), usually 10% of client's balance. 

Treasury Bill - (T-Bill) - interest rate set by the US Government. 

Fed Funds Rate - A target interest rate for banks borrowing reserves among themselves. 
It is set by the Federal Open Markets Committee. See web site: 
http://www.bankrate.eom/brm/green/define/#fomc for more information. 

Float - checks which have been deposited but funds are not yet available. 

Revision Date - date of the bank statement (usually issued on monthly basis). 

Basis Point - one one-hundreth of a percent, e.g., 300 basis points is 3%. 

OVERVIEW OF PRESENT INVENTION 

The present invention is implemented as a software program called "The Bank 
Analyzer," that aims to empower clients with the necessary information to ensure fair 
treatment from their bank. The software generates numerous reports which explain in 
layman's terms exactly how bank service charges are broken down. Furthermore, the 
reports are presented in color, making it easy for even a novice to elicit the needed 



information. Armed with such information, a client will understand exactly where and 
how service charges can be reduced and/or earnings credits can be increased. 

Prior to the present invention, some clients may have suspected that certain bank 
charges were askew, certain transactions were wasteful, and certain transactions were 
unnecessary. However, there was never any solid clear-cut method of substantiating 
these suspicions. Furthermore, it was the belief of clients that the resources necessary to 
even begin an investigation would outweigh any results. The present invention includes a 
plurality of analysis techniques that were previously not available and which are 
implemented in formulas that generate Illumination Reports (described below). The 
Illumination Reports yielded by the present invention provide a catharsis to the clients in 
managing their bank charges. 

The basic philosophy of the invention is (1) Effective Management of Bank 
Service Charges; (2) Illumination of Data; and (3) Edification of the Client. 

In the examples provided in the figures and tables below, Bank Names and Client 
names are fictitious, but the values and dollar amounts represent actual data. 

Illumination Reports Table (Diagnostic Section) 

Fig. 1 (provided in parts 1 and 2) summarizes in table form each report from the 
diagnostic section of the present invention, highlighting the areas of most impact. In 
many cases, clients are unaware that the data produced by the present invention may be 
significant to the financial well being of their company. In other cases, there is no simple 
method of obtaining this data. Lack of data precludes effective management of such 
charges. 

The disclosure below covers various methods and systems to assist clients in 
managing their bank service charges and reducing or eliminating cost incurring 
transactions. The focus also centers on elevating client awareness and providing a clear- 
cut analysis of how bank charges are affecting their bottom line. Also, the disclosure 
presents the algorithms of the software which provide this assistance. Exemplary 
methods include: 

1 . Revealing actual Bank Service Charges assessed. 

2. Minimizing strap charges, i.e., the charges a bank assesses for counting clients 
money, by strapping in denominations which yield the best results. 



3. Comparison of clients' bank charges, i.e., Deposit Tickets, Night Bag Deposits, 
etc. . . with charges of other clients' banks nationwide. Recommendations are made based 
on these national averages. 

4. Evaluation of clients' non-earning assets and recommendations on how to 
maximize revenue from these assets. 

Exemplary algorithms include: 

1 . Using dynamic report generation forms to allow the user to extract the 
necessary information to execute the methods. 

2. Creating cross-reference tables between a bank charge and its description 
according to the particular bank, and the actual charge expressed in layman's terms. 

3. Storing all bank analysis data in a minimum number of tables, and calculating 
and deriving comparison information "on the fly," that is, each time a report is generated. 
This ensures up-to-the-minute accurate information. 

DETAILED DISCLOSURE 

This section outlines what each report accomplishes. Refer to the attached figures 
for examples that correspond to the figure numbers listed. The alphanumeric characters 
refer to data highlighted in the respective figure. For example, "2a" highlights data in 
Fig. 2. 

Bank Balance Data (Fig. 2) - Here the Bank Analyzer exposes the total service 
charge assessed a client for the particular revision date. (2a) Note that the Bank Analyzer 
reveals the actual charge, not the 'net' one which the client now sees. The net charge 
includes a 'comp' balance, which are client's balances subject to the Banks' earnings 
credit. In some cases, the earnings credit offsets any service charges. That is, the client 
believes that no service charges are being paid, when, in fact, the service charge is 
deducted from any earnings credit due. Fig. 2 shows how this client (SUPER-CON 
Convenient Stores) has paid $57,192.50 in the month of October, 1999 to their banks. 
The report details not only totals but amounts to each bank, e.g., $15,035.17 paid to the 
Western Savings Co. (see line #2 of the example report) 

Earnings Credit Analysis (Fig. 3) 

This report color codes basis point shaved, to indicate abnormal bank activity. 



This report is a scorecard to see how a client's bank performs against the T-bill rate. (3a) 
It indicates the difference between T-Bill and client's actual earnings. The results are 
instantly revealed. This process would consume hundreds of man-hours to produce 
otherwise. Armed with this report, a client can be sure to be credited with at least the 
T-Bill Rate. 

Fed Funds (3b) - This same report also shows the amount of money the bank is 
earning by investing the client's money at the Fed Funds rate. The bank will often invest 
in Fed Funds when they are not using it to generate loan revenue. This gives the client a 
look at how much money the bank can earn from the client's money. 

Income Difference (3c) - Finally, the income difference is determined, which is 
the difference a client can add to its bottom line if given the corresponding interest rates. 
This generally results in a tremendous increase to the client's bottom line. (3d) 

The Bank Names, as well as the basis points shaved, are printed in degrees of 
color. This facilitates isolating the cases where the client can realize the maximum 
benefit. (3e) 

Earnings Credit And Negative Collected Rates (Fig. 4) 

As a supplement to the Earnings credit Report, this report matches the Earnings 
Credit on positive balances to the rate imposed on Negative Collected funds. Clients 
should be charged the prime interest rate. However, typical findings indicate that clients 
are sometimes charged as much as 300 basis points over prime. A fair bank would 
actually pay at a 1 :1 ratio by posting earnings at the same rate imposed for the negative 
collected balance. The example report shows one sample bank (4a) which is charging 
significantly higher negative collected rates than earnings credit rates, and one sample 
bank (4b) which is charging fair rates. 

Checks, Deposits And Float Data (Fig. 5) 
Avg Check Size Per Store (5a) 

Occasionally, the bank will assess a float table that does not correspond to actual 
availability. This report will alert client to this fact, by showing them the Avg Check Size 
per store. The client usually has a good idea of the average check a store receives, (e.g., a 
drug store may receive checks that average about $75, whereas a lumberyard may have 



checks averaging $300). If this check size becomes inflated, that is, if the client sees that 
the value is more than it normally would be, then the client knows to investigate and to 
look at each check. In many cases, the client may realize that the bank is not posting the 
checks to his/her account promptly. Without the use of the present invention, discovery 
of this fact would consume inordinate amounts of time and resources. 
Out Of District (5b) 

The Out Of District column indicates checks received from customers of the 
client that are drawn on banks outside the local district of the depository bank. It is 
common that most customers bank locally. Therefore, 90% should be in district. The 
column indicating 2 Day % is the derived Out Of District number. If this number is not 
within this normal average, it is an alert that the bank may not be providing the proper 
calculation with the float. Also, it is likely that the service charge is increased, because 
Out Of District service charges are generally more expensive. 

Checks On Us (5c) 

This column determines the presence that a bank has in a region, and On Us 
Checks should be treated as cash and should be made available immediately. Clients can 
now ensure that this is the case. 

Breakdown By Service Charge Groups (Fig. 6) 

The Bank Balance Data report illuminated the actual Total Service Charges 
assessed. This report begins putting the Total Service Charge number under the 
microscope, commonly referred to as drill-down reporting in the computer field. This 
report shows the 3 main categories: 

Categories Depository Costs (dep tickets, cash bags, etc. . .) (6a) 

Check Costs (Checks dep, ret items, etc..) (6b) 

Account Maintenance (balance reporting) (6c) 

The percentage of the total cost is analyzed, and if these three categories do not 
total close to 100%, then there is a good chance that a particular charge is askew. 
Potential items to investigate include: 

1. Negative interest charge for using uncollected funds (See Earnings Credit and 
Negative Collected Rates report) 

2. Bounced check fees - too high? 
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These percentages can be compared with other clients' percentages to assist in 
evaluation. Volumes (amount of activity) are also considered, to ensure fair comparisons. 

Breakdown By User Selected Groups (Fig. 7) 

This report allows for the creation of custom reports tailored to each client. 
5 Multiple service charges can be lumped into groups, and then these groups can be 

evaluated. For example, a client may want to see a breakdown of lock box deposit 
charges. Presently, this would require mining every statement for any charge pertaining 
to a lock box. It is not always clearly indicated on the bank statement, so research could 
also be required. Using a conventional analysis process, it could require numerous hours 

10 or more for a client to presently determine all of the lock box charges. In the present 
invention, service charges can be grouped into a category, for example, Lock Box 
Charges. Then, the cross-reference table links all lock box charges: Correspondence, 
Courier, Delivery US Mail, Checks Deposited, etc. . . The report then displays at a glance 
the actual Lock Box charges that a client is paying for. 

1 5 Lock Box Charges is just an example category. Any group can be analyzed, e.g., 

Depository Costs, Checks, Cash, Coin, etc. . . This information is invaluable to the client 
and has never before been available to the client. Any categories can be supplied, 
yielding hundreds of possibilities for analysis depending on the client's particular 
situation. 

20 Unit Price Summary (Fig. 8) 

This report shows every service charge assessed for the client encompassing all 
stores, all banks, and every line item. The report shows at a glance monthly totals, yearly 
totals (calculated) and also average and weighted average, which considers volume. This 
information was so difficult to obtain using conventional analysis processes that clients 

25 never even considered attempting to acquire it. 

Deposit Ticket Costs (Fig. 9, provided in parts 1 and 2) 
This report examines the prudence of daily deposits by examining every cost 
associated with making a deposit. Since clients make frequent deposits of large sums of 
checks and cash, these charges can be substantial. See 9a for a sample of the total cost 
30 incurred in one year for one client. Prior to the present invention, these charges could 
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never be investigated or verified, and therefore it was not possible to show inefficiencies 
in the client's business practices. This report also determines the daily deposit a client 
must make in order to "break even." It is actually possible for a client to lose money by 
making too many deposits, because the cost of depositing the money outweighs any 
5 earnings credit that may be earned. (9b) 

Finally, the Potential Daily Loss columns show the exact amount lost (9d) if the 
deposit were equal to the column headings. (9c) It should be noted that these values 
depend upon the average return rate a client expects to make. (9e) This value is dynamic, 
and can be changed (inputted) each time the report is generated. 

1 0 Cash Activity Costs (Fig. 1 0) 

Banks charge their clients to count the cash being deposited. Clients are generally 
charged in one of two ways: by strap or per $1000 counted. If a particular client receives 

i t Q a lot of cash, it behooves a client to be charged by strap since 1000 single dollar bills is 

m 

r ^ charged the same as 10 one hundred dollar bills, even though it is more labor intensive to 

; r P 1 5 count 1 000 bills than 1 0 bills. When charged by strap, 1 00 1 00 dollar bills are charged 

iin the same as 100 1 dollar bills. This decision varies depending on the cash composition of 

*y the business client is engaged. For example, a newsstand which receives numerous one 

;3 dollar bills is generally better off paying by the 1000, because they will have numerous 

"'-4 

M bills. On the other hand, a supermarket may be better off paying by strap, as they may 

;~ 20 receive greater denominations. In either case, the reports will highlight this information, 

w3 permitting the client to choose wisely. 

Another area often overlooked by clients is the Rolled coin charges (10a). Clients 

are often charged for the phone call to order the coin! This report allows deeper probing 

into this matter. 

25 Another benefit of the Cash Activity Costs report is that it allows for verification 

that the proper amount of cash is being counted. Currently, clients must assume that the 
banks' report is correct. 

To gain insight into just how much it costs to count cash, see the client's monthly 
charge (10b) and yearly projection. (10c) 
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Banking Activity (Fig. 11) 

This is a summary report, which details vital information such as Deposit Tickets, 
BAI Detail, Night Bags and Rolled Coin charges. It is used as a support and guide to aid 
the client in understanding the detail diagnostic reports. 

Analysis By Unit Price (Fig. 12) 

This report takes the Unit Price Summary and drills down every charge to list 
each bank where the charge was derived. It is a lengthy report and is used to isolate 
problem areas when the summary indicates a potential problem area. It serves as a 
complete audit trail tracking the lowest level of detail from each of the client's banks. 

Illumination Reports (Action Items) - (Figs. 12-14) 

This section provides a 'blueprint' to the client for the steps which should be 

taken. 

This section also contains every line item of every analysis from every bank for 
the client, and the revision date being considered, (see Fig. 12) This serves as supporting 
information when the client is making the decisions necessary to eliminate or reduce 
transactions, as well as negotiate with the bank for a reduction in charges which are 
deemed unfair. 

This section contains the following items: 

Working Sheet Report (Fig. 13) - contains a trace number which references 
where the original data came from. Provides client with actual volume and cost amounts, 
in addition to the recommendations based on the comparison with similar clients at 
similar banks. It also highlights the potential savings a client can garner from 
implementing these recommendations. Annual projections are extrapolated. 

Projected Savings Report (Fig. 14) shows the clients' potential savings for each of 
their banks if the recommendations in Fig. 13 are implemented. 

How the Bank Analyzer Works 

Examples of source code for implementing the Bank analyzer are provided in this 

section. 
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There are 4 sections to the Bank Analyzer, as follows: 
SECTION I - Static Compilation 

SECTION II - Dynamic Compilation - Input of Monthly Bank Analysis Data 
SECTION HI - Report Generation - Black Box effect 
SECTION IV - Illumination - Meeting with Client 

This portion of the disclosure provides a detailed description of how the present 
invention works, and how it generates the reports to edify the clients. 

SECTION I - Static Compilation 

Static Compilation refers to the acquiring of data and inputting of data which will 
form the basis of the eventual evaluation prepared for the client. This section has two 
functions. The first function is to build a master cross-reference table, shown 
schematically in Fig. 15. The second function is history compilation. 

Function #1 - Building A Master Cross-Reference Table 

This function begins with the massive input of every possible service charge from 
every bank a client is associated. Each service charge is assigned a unique code and a 
layman's (layperson's) term. Fig. 16 shows an entry screen of a form used to collect and 
store service charges. Every possible charge incurred by the clients is entered here, and 
is assigned a standardized service description. 

Fig. 17 shows a layout and structure of the cross-reference table. This table 
houses every bank service charge encountered from the statements. The ServiceCodes are 
a unique way of identifying all charges for all clients. This table can add new entries as 
banks create new service charges, but the information is generally static and therefore this 
table is generated during the Static Compilation section of the Bank Analyzer software. 

Once the service codes are established, it is necessary to maintain a database of 
bank information and a link between the bank's service charges and the internal codes of 
the Bank Analyzer. This ensures that clients will see the same terminology when 
analyzing all of their banks, and will also provide the method of translating back to the 
bank's language when dealing with a specific bank. These functions are accomplished 
mainly by the use of two tables, Banks (Fig. 18) and BankServ (Fig. 19). Figs. 17 and 18 
combine to make the cross-reference table. The Banks table houses in a computer 
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database each bank that a client is associated. The BankServ table houses in a computer 
database each service charge assessed by a bank, and the corresponding code assigned to 
this service charge by the Bank Analyzer software. The BankDescription field maintains 
the terminology used by the bank for future reference when dealing with the bank. This 
foundation data is collected in a computerized form and can be searched and retrieved via 
screen displays as shown in Fig. 20 A and Fig. 20B. 

Fig. 20A and Fig. 20B illustrate the use of an electronic translator that converting 
service charge items of a plurality of individual banks, expressed in terminology of the 
respective individual banks, to a service description expressed in a standardized 
terminology. The translation goes in the reverse direction when the results are used in 
discussions with the clients 5 banks. At least some of the service charge items of different 
banks have the same standardized service description. For example, the service charge 
for "Deposit Tickets" (standardized service code 00425) is referred to as "Deposited 
Processed" by Eastern Savings Co. (see Fig. 20A), and is referred to as "Credit Posted" 
by Commercial Bank (see Fig. 20B). In another example, "BAI Detail" (Bank 
Administration Institute Detail) (standardized service code 00973) is referred to as "Dep 
Recon Proc" by Eastern Savings Co. (see Fig. 20A), and is referred to as "Recon" by 
Commercial Bank (see Fig. 20B). 

Fig. 21 shows a Clients table that stores client data for the Bank Analyzer 
software. 

Sample Visual Basic for Applications (VBA) code for controlling interface of Banks 
table: 



Code 


1 


VERSION 1.0 CLASS 


2 


BEGIN 


3 


MultiUse = -1 True 


4 


END 


5 


Attribute VB_Name = n Form_Banks n 


6 


Attribute VB_GlobalNameSpace = False 


7 


Attribute VB_Creatable = True 


8 


Attribute VB_PredecJaredId = True 


9 


Attribute VB_Exposed = False 


10 


Option Compare Database 


11 


Option Explicit 


12 




13 


Private Sub Command 16_CIick() 


14 


D Cmd.OpenRep rt "Banks By Code", acvlewPreview 


15 


End Sub 


16 




17 


Private Sub C mmandl7_Click() 
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18 D Cmd.OpenRep rt "Banks By Name", a cView Preview 

19 End Sub 
20 

21 Private Sub Command52_Click() 

22 D Cmd.OpenReport "Banks Quick Print", acPreview, , "[BankC de] = ,n & MelBankC de & 

23 End Sub 
24 

25 Private Sub Form_Activate() 

26 DoCmd.Restore 

27 End Sub 
28 

29 Private Sub Form_Current() 

30 If Me.NewRecord Then 

31 BankCode.SetFocus 

32 End If 

33 End Sub 
34 

35 Private Sub Form_Load() 

36 If Not IsNull(Me.OpenArgs) Then 

37 MelBankCode = Me.OpenArgs 

38 End If 

39 End Sub 



Sample VBA code for controlling Service Codes interface: 



Code 

1 VERSION 1.0 CLASS 

2 BEGIN 

3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = n Form_ServiceCodes" 

6 Attribute VB_G!obalNameSpace = False 

7 Attribute VB_CreatabIe = True 

8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

13 Private Sub Command 16_Click() 

14 DoCmd.OpenReport "ServiceCodes By Code", acView Preview 

15 End Sub 
16 

17 Private Sub Command 17_Click() 

18 DoCmd.OpenReport "ServiceCodes By Description", acViewPreview 

19 End Sub 
20 

21 Private Sub Form_Current() 

22 If Me.NewRecord Then 

23 ServiceCode.SetFocus 

24 End If 

25 End Sub 
26 

27 Private Sub Form_Load() 

28 If Not IsNull(Me.OpenArgs) Then 

29 Me![ServiceCode] = Me.OpenArgs 

30 End If 

31 End Sub 



Function #2 - History Compilation 

History compilation entails the process of taking bank statements from previous 
months and entering them into a computer database in the Bank Analyzer. Data collected 
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by this process is used for making accurate and informative comparisons between clients, 
and is helpful in determining appropriate and fair service charges. A flowchart of the 
process is shown in Fig. 22, and field layouts for a Bank Service Charge History table is 
shown in Fig. 23. 

5 SECTION II - Dynamic Compilation - Input of Monthly Bank Statement Data 

The Bank Statement issued by the bank to the client encompasses all stores for 
that client. The Bank Analyzer program provides a data collection form where this 
information is housed. This information is the raw material used to generate the final 
product. The two main tables used in this section are the AnalysisHdr and AnalysisDtl 
10 files. See Fig. 24 and Fig. 25 for the field layouts of these tables. 

Sample VBA Code for controlling interface for AnalysisHdr: 

□ 

.5 Code 

":~ 1 VERSION 1.0 CLASS 

; : n 2 BEGIN 

M 15 3 MultiUse = -1 True 

g 4 END 

£ , 5 Attribute VB_Name = n Form_AnalysisHdr n 

6 Attribute VB_G!obalNameSpace = False 

Cfl 7 Attribute VB__Creatable = True 

i-'y 20 8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

Q 11 Option Explicit 
J 12 

25 13 Private Sub BankCode_BeforeUpdate(Cancel As Integer) 

|'7 14 If Not Me.NewRecord Then 

i™ 15 If MsgBox("You are about to change the bank code." & vbCr & "This will change all 

□ service codes to be under the new bank." & vbCr & "Is this what you want to do?", 

s*3 vbOKCancel, "Key Field Change") = vbCancel Then 

30 16 DoCmd.CancelEvent 

17 MelBankCode.Undo 

18 End If 

19 End If 
20 

35 21 End Sub 
22 

23 Private Sub Ba nkCode_Got Focus () 

24 BankCode. Dropdown 

25 End Sub 
40 26 

27 Private Sub BankCode_NotInList(NewData As String, Response As Integer) 

28 Dim Result 

29 Dim msg As String 
30 

45 31 If NewData = "" Then Exit Sub ' cleared combo box 
32 

33 msg = "" & NewData & " is not in the Banks file." & vbCr & vbCr & "Do you want t add it?" 

34 'Yes 

35 If MsgB x(msg, vbQuesti n + vbYesNo) = vbYes Then 

50 36 DoCmd.OpenF rm "Banks", , , , acFormAdd, acDial g, NewData 

37 End If 
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38 

39 1 1 k for new record added 

40 Result = DLo kup("[BankCode]", "Banks", "[BankC de]= ,n & NewData & n,n ) 

41 If IsNull(Result) Then 

42 'suppress error message 

43 Resp nse = acDataErrContinue 

44 MsgBox "Please enter a new customer number." 

45 Else 

46 ' they added it 

47 Response = acDataErrAdded 

48 End If 

49 End Sub 
50 

51 Private Sub Command45_Click() 

52 DoCmd.OpenForm "BankService Select", acNormal 
53 

54 End Sub 
55 

56 Private Sub Command46_Click() 

57 DoCmd.OpenForm "AnalysisRpt Select" 

58 End Sub 
59 

60 Private Sub Command47_Click() 

61 Dim crt As String 

62 crt = "[AnalysisNo] = " & MelAnalysisNo 

63 DoCmd.OpenForm "WorkingSheetHdr", acNormal, , crt, acFormEdit, , True 

64 End Sub 
65 

66 Private Sub Command49_Click() 

67 DoCmd.OpenReport "Analysis Rpt", acPreview, , "[AnalysisNo] = " & MelAnalysisNo 

68 End Sub 
69 

70 Private Sub Command50_Click() 

71 1 Print the Bank Balance Data Rpt 

72 Dim crt As String 

73 crt = "[CustomerNo] = '" & MeSCustomerNo & " ,n 

74 crt = crt & " AND [RevDate] = #" & MeSRevDate & "#" 

75 DoCmd.OpenReport "Bank Balance Data", acvlewPreview, , crt 

76 End Sub 
77 

78 Private Sub Command52_Click() 
79 

80 Const twipsPerlnch = 1440 

81 DoCmd.OpenReport "Analysis Rpt", acPreview, , "[AnalysisNo] = " & MelAnalysisNo 

82 DoCmd.MoveSize 0, 0, 8 * twipsPerlnch, 6 * twipsPerlnch 

83 End Sub 
84 

85 Private Sub Command53_Click() 

86 If Command53.Caption = "Sequence #" Then 

87 Command53.Caption = "Code" 

88 MelAnalysisDti.Form.OrderBy = "ServiceCode" 

89 Else 

90 Command53.Caption = "Sequence #" 

91 MelAnalysisDti.Form.OrderBy = "SeqNo" 

92 End If 
93 

94 End Sub 
95 

96 Private Sub Command59_Click() 

97 Dim crt As String 

98 crt = "[CustomerNo] = '" & Me!CustomerNo & " ,n 

99 crt = crt & " AND [RevDate] = #" & Me! RevDate & "#" 

100 D Cmd.OpenReport "Bank Balance Data By Float", acvlewPreview, , crt 

101 End Sub 
102 
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103 Private Sub C mmand60_Click() 

104 Dim crt As String 

105 at = "[Cust merN ] = '" & Me!CustomerN & n,n 

106 at = crt & " AND [RevDate] = #" & MelRevDate & n # n 

107 D Cmd.OpenRep rt "Bank Balance Data By EC Rate", acViewPreview, , crt 
108 

109 End Sub 
110 

111 Private Sub Command61_Click() 

112 DoCmd.OpenForm "EC Analysis Select" 

113 End Sub 
114 

115 Private Sub CustomerNo_BeforeUpdate(Cance1 As Integer) 

116 If Not Me.NewRecord Then 

117 If MsgBox("You are about to change Customer number.* 1 & vbCr & "This will result in 
these service codes to be under the new customer." & vbCr & "Is this what you want to 
do?" # vbOKCancel, "Key Field Change") = vbCancel Then 

1 18 DoCmd .Ca ncel Event 

119 Me!CustomerNo.Undo 

120 End If 

121 End If 
122 

123 End Sub 
124 

125 Private Sub CustomerNo_GotFocus() 

126 CustomerNo. Dropdown 

127 End Sub 
128 

129 Private Sub CustomerNo_NotInList(NewData As String, Response As Integer) 

130 Dim Result 

131 Dim msg As String 
132 

133 If NewData = "" Then Exit Sub ' cleared combo box 
134 

135 msg = "" & NewData & n is not in the Customer file." & vbCr & vbCr & "Do you want to add 

136 'Yes 

137 If MsgBox(msg / vbQuestion + vbYesNo) = vbYes Then 

138 DoCmd.OpenForm "Customer", , , , acFormAdd, acDialog, NewData 

139 End If 
140 

141 ' look for new record added 

142 Result = DLookup("[CustomerNo]" / "Customer", "[CustomerNo] = '" & NewData & n,n ) 

143 If IsNull(Result) Then 

144 'suppress error message 

145 Response = acDataErrContinue 

146 MsgBox "Please enter a new customer number." 

147 Else 

148 ' they added it 

149 Response = acData Err Added 

150 End If 
151 

152 

153 End Sub 
154 

155 Private Sub Form_Activate() 

156 If CurrentUser() = "Admin" Or CurrentUser = "CarmJr" Then 

157 DoCmd.ShowToolbar "Menu Bar", acToolbarYes 

158 Else 

159 DoCmd.ShowToolbar "Menu Bar", acToolbarNo 

160 End If 

161 MaximizeRestoredForm FormsianalysisHdr 

162 End Sub 
163 

164 Private Sub Form_Close() 

165 D Cmd.OpenForm "Analysis Select r" 

166 End Sub 
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167 

168 Private Sub F rm_Current() 

169 If Me.NewRecord Then 

170 Cust menN .SetF cus 

171 End If 

172 End Sub 
173 

174 Private Sub NegCollectedRate_Exit(Cancel As Integer) 

175 If Me.NewRecord Then 

176 AnalysisDtJ.SetFocus 

177 End If 

178 End Sub 



SECTION ID - Report Generation 

This section describes the black box effect of the invention and discloses the 
methods and algorithms used to create the desired results. It also lists sample source code 
of key aspects of the program. 

Once the data in the previous two sections has been amassed, it is now ready to be 
processed. This section illustrates the core functionality of the present invention. A 
majority of the information revealed by the reports was previously unknown to the 
clients. 

The following lists Key fields which are utilized throughout the Bank Analyzer 
software: 



AvgDIyPos - the average daily positive balance 

FedPct - the current percentage mandated for the Reserve requirement 

AdjBal - adjusted balance 

AvgBal - average balance 

AvgFloat - average float 

ECRate - earnings credit rate 

ReserveReq - reserve requirement amount 

AvailableBalance - available balance 

AvgFloatPerStore - average float per store 

AnalysisNo - unique indexed number 



NegCollectedRate - negative collected rate, compared with the ECRate 
Report: Bank Balance Data (Fig. 2) 

Objective: Determine actual Total service charges paid by clients 

The TotalServiceCharges field is derived from the CalcServTotal function, which 

is fed the information from the analyses entered during the dynamic compilation phase. 

The source code follows, which describes how to derive the actual service charges paid - 

by bank and with totals (2a), for the client being examined. 

Public Functl n CalcServTotaI(R As Report) 

* Determining actual service charges 
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x This function is called for every line displayed and/or printed in the Bank Balance Data report - Fig. 2 in 
the disclosure 
Dim tmpAmount As Double 
Dim msg, crt As String 
5 On Error Resume Next 

* select the bank we're examining 

crt = "[CustomerNo] = '" & FormslanalysisHdr.CustomerNo & m " 

crt = crt & " AND [BankCode] = ,n & R.BankCode & ,,m 

crt = crt & " AND [RevDate] = #" & FormslanalysisHdr.RevDate & "#" 

10 ' obtain fields from the AnalysisDtl table described in Dynamic Compilation section 

tmpAmount = DSum("[Activity]*[UnitPrice] n # "AnalysisDtlQ", crt) 

1 return the answers in variables 
ServicesTotal = ServicesTotal + tmpAmount 
CalcServTotal = tmpAmount 

15 On Error GoToO 

End Function 

Report: Earnings Credit Analysis (Fig. 3) 
Objectives: 1. Basis points shaved 

2. Projected Fed Fund amount 
20 3. Projected T-Bill amount 

4. Projected Income Difference 
The report generation process begins with a data entry screen, as shown in Fig. 
26. The T-Bill, Fed Funds, Interest Rate and Prime are entered prior to generating the 
report. These are the default values that the program uses in determining the objectives. 
25 These values can be customized by the client to allow for more accurate reporting. 

Results are revealed in a simple color-coded scheme allowing clients to see "at a glance" 
exposure to points of concern. (3e) 

Exemplary source code follows: 

To display the Basis points shaved using color codes: (3e) 

30 Public Function ColorCodeBanks 

Dim tmpAmt, tmpAmount As Double 
PointsShaved.Visible = True 
' turn Overdraft balances to Red 
Select Case AvgBal 
35 Case ls>=0 

AvgBal.ForeColor = vbBlack 
Case Else 

AvgBal.ForeColor = vbRed 
End Select 
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' color code how many points are shaved 

% constants representing colors are stored in an 'include' file 

Select Case PointsShaved 

Case Is >= 200 

1 RED --> Worst offenders 

BankCode.ForeColor = vbRed 

BankName.ForeColor = vbRed 

PointsShaved. ForeColor = vbRed 
Case 100 To 199 

BankCode.ForeColor = vbCyan 

BankName.ForeColor = vbCyan 

PointsShaved.ForeColor = vbCyan 
Case 26 To 99 

BankCode.ForeColor - vbMagenta 

BankName.ForeColor = vbMagenta 

PointsShaved.ForeColor = vbMagenta 
Case 1 To 25 

BankCode.ForeColor = vbDarkGreen 

BankName.ForeColor = vbDarkGreen 

PointsShaved.ForeColor = vbDarkGreen 
Case Is <= 0 

PointsShaved.Visible = False 

BankCode.ForeColor = vbBlue 

BankName.ForeColor = vbBlue 

PointsShaved.ForeColor = vbBlue 
End Select 
End Function 

Objective algorithms: 

The Fed Funds Income difference is determined by taking the inputted current Fed Funds 
percentage and multiplying it by the Available Balance, then subtracting the annualized 
Earnings Credit amount. 

The T-Bill difference is determined by taking the inputted current Treasury Bill 
rate and multiplying by the Available Balance, then subtracting the annualized Earnings 
Credit Amount. 

The Interest Yield difference is determined by taking the inputted current Interest 
rate and multiplying by the Available Balance, then subtracting the annualized Earnings 
Credit Amount. 



Key Source Code functions and examples: (3c) 

FedFundsIncomeDifference= [Forms]! [EC Analysis Select]![FedFunds]*[AvailableBal]-([EarningsCredit]*12) 
TBillDifference=[Forms]![EC Analysis Select]![Tbill]*[AvailableBal]-([EarningsCredit]*12) 
IncomeDifference= [Forms]! [EC Analysis Select]![InterestRate]*[AvailableBal]-([EarningsCredit]*12) 

Source Code display: 

SELECT IIf([AvgDlyPos]=0 / ([FedPct]/100)*[AdjBal],([FedPct]/100)*[AvgDlyPos]) AS ReserveReq, 
AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnaiysisHdr.AvgBal, 
AnalysisHdr.AvgFloat, AnalysisHdr.FedPct, AnalysisHdr.ECRate, [AvgDlyNeg]+[AdjBal] AS AvgDIyPos, 



-21- 



AnalysisHdr.AvgDlyNeg # Banks.BankName, Customer.CustomerName, [AvgBal]-[AvgF!oat] AS AdjBal, 
Banks.City, Banks.State, [AvgDlyPos]-[ReserveReq] AS AvailableBalance, [AvailableBalance]*[ECRate]/1200 
AS EarningsCredit, AnalysisHdr.NumberOfStores, [AvgFloat]/[NumberOf5tores] AS AvgFloatPerStore, 
AnalysisHdr.AnalysisNo, IIf([AvgDIyPos]=0 / [AdjBal]-[FedRes] / [AvgDlyPos]-[FedRes]) AS AvailableBal, 
5 IIf([AvgDlyPos]=0,([FedPct]/100)*[AdjBal],([FedPct]/100)*[AvgDlyPos]) AS FedRes, 

AnalysisHdr.NegCollectedRate 

FROM Customer INNER JOIN (Banks INNER JOIN AnalysisHdr ON Banks.BankCode = 
AnalysisHdr.BankCode) ON Customer.CustomerNo = AnalysisHdr.CustomerNo; 

Public Function CalcTBillTotal(R As Report) 

1 0 Dim tmpAmount As Double 

If RITBilllncomeDifference > 0 Then 

tmpAmount = RITBilllncomeDifference 

TBillDifference = TBillDifference + tmpAmount 
End If 

15 If RIFedFundsIncomeDifference > 0 Then 

FedFundsDifference = RIFedFundsIncomeDifference + FedFundsDifference 
End If 

If RIInterestYieldlncomeDifference > 0 Then 

InterestYieldDifference = RIInterestYieldlncomeDifference + InterestYieldDifference 
20 End If 

CalcTBiliTotal = tmpAmount 
End Function 

To derive sums and annualized results, the totals are added for each line 
(corresponding to one client Bank), and then multiplied by 12 for annualization. The 
25 report's objectives are supported by displaying the Average Investable income and the 

Annualized Projected income. (3d) 

Report: Earnings Credit And Negative Collected Rates (Fig. 4) 

Objective: Match the Earnings Credit on positive balances to the rate imposed on 

Negative Collected funds. 
30 The report generation process begins with a data entry screen, as shown in 

Fig. 27. 

Objective algorithm: 

Display the Negative collected rate on the same report with the Earnings Credit 

rate. 



35 Exemplary Source code: 

Selects and displays the data shown on Fig. 4. 

SELECT IIf([AvgDlyPos]=0X[FedPct]/100)*[AdjBal] / ([FedPct]/100)*[AvgDlyPos]) AS ReserveReq, 
AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr. RevDate, AnalysisHdr.AvgBal, 
AnalysisHdr.AvgFloat, AnalysisHdr.FedPct, AnalysisHdr. ECRate, [AvgDlyNeg]+[AdjBal] AS AvgDIyPos, 
40 AnalysisHdr.AvgDIyNeg, Banks.BankName, Customer.CustomerName, [AvgBal]-[AvgFloat] AS AdjBal, 
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Banks.City, Banks.State, [AvgDlyPos]-[ReserveReq] AS AvailableBalance, [AvailableBalance]*[ECRate]/1200 
AS EarningsCredit, AnalysisHdr.NumberOfStores, [AvgFloat]/[NumberOf5tores] AS AvgFloatPerStore, 
AnalysisHdr.AnalysisNo, Hf([AvgDlyPos]=0,[AdjBal]-[FedRes],[AvgDlyPos]-[FedRes]) AS AvailableBal, 
IIf([AvgDIyPos]=0,([I^Pct^ 
AnalysisHdr.NegCollectedRate 

FROM Customer INNER JOIN (Banks INNER JOIN AnalysisHdr ON Banks.BankCode = 
AnalysisHdr.BankCode) ON Customer.CustomerNo = AnalysisHdr.CustomerNo; 

Report: Checks Deposits and Float Data (Fig. 5) 

Objectives: 1 . Determine actual availability date of client's monies (5a) 

2. Show abnormal Out Of District activity (5b) 

3. Verify immediate availability of On Us activity (5c) 



Exemplary Source Code for report output: 

The INNER JOIN ensures proper bank and client information extracted. 

SELECT IIf([AvgDlyPos]=0 / ([FedPct]/100)*[AdjBal] / ([FedPct]/100)*[AvgDlyPos]) AS ReserveReq, 
AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisHdr.AvgBa1, 
AnalysisHdr.AvgFloat, AnalysisHdr.FedPct, AnalysisHdr.ECRate, [AvgDlyNeg]+[AdjBal] AS AvgDIyPos, 
AnalysisHdr.AvgDIyNeg, Banks.BankName, Customer.CustomerName, [AvgBal]-[AvgFloat] AS AdjBal, 
Banks.City, Banks.State, [AvgDlyPos]-[ReserveReq] AS AvailableBalance, [AvailableBalance]*[ECRate]/1200 
AS EarningsCredit, AnalysisHdr.NumberOfStores, [AvgFloat]/[NumberOfStores] AS AvgFloatPerStore, 
AnalysisHdr.AnalysisNo, IIf([AvgDlyPos]=0,[AdjBal]-[FedRes],[AvgDlyPos]-[FedRes]) AS AvailableBal, 
IIf([AvgDlyPos]-0,([FedPct]/100)*[AdjBal],([FedPct]/100)*[AvgDlyPos])ASFedRes, 
AnalysisHdr.NegCollectedRate, Customer. PDL1, Customer. PDL2, Customer.PDL3, Customer.PDL4, 
AnalysisHdr.ChecksOutDist, AnalysisHdr.ChecksInDist, AnalysisHdr.MixedDeposits, 
AnalysisHdr.DepositTickets, AnalysisHdr.ChecksOnUs, 

IIf([TotalChecksFloated]>0 / [AvgFloat]/|TotalChecksFloated]*30 / 0) AS AvgCheckSize, 

[ChecksOutDist]+[ChecksInDist]+[MixedDeposits] AS TotalChecksFloated, AnalysisHdr. DepCost, 

AnalysisHdr.BAICost, AnalysisHdr.DepReconCost, AnalysisHdr.NightBagsCost 

FROM Customer INNER JOIN (Banks INNER JOIN AnalysisHdr ON Banks.BankCode = 

AnalysisHdr.BankCode) ON Customer.CustomerNo = AnalysisHdr.CustomerNo 

ORDER BY AnalysisHdr.AvgFloat DESC; 

Sample VBA Code: Checks Deposits and Float Data 



Code 

1 VERSION 1.0 CLASS 

2 BEGIN 

3 MultiUse = -l True 

4 END 

5 Attribute VB_Name = n Report_Checks Deposits and Float Data" 

6 Attribute VB_GlobalNameSpace = False 

7 Attribute VB_Creatable = True 

8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

13 Private Sub GroupF terl_Print(Cancel As Integer, PrintCount As Integer) 

14 1 

15 1 

16 End Sub 
17 
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18 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

19 1 this is d ne in the Activate Event n w 

20 'Dim tDT, tMD, tCOU, tCID, tCOD As D uble 

21 'Call Ca!cCDFData(Rep rt, tDT, tMD, tCOU, tOD, tCOD) 

22 'DepositTickets = tDT 

23 'MixedDep sits = tMD 

24 'ChecksOnUs = tCOU 

25 'ChecksInDist = tCID 

26 'ChecksOutDist = tCOD 

27 End Sub 
28 

29 Private Sub Report_Activate() 

30 ' generate the activity data 

31 Call CalcCDFData 

32 End Sub 
33 

34 Private Sub Report_Deactivate() 

35 Application. Echo True 

36 End Sub 
37 

38 Private Sub ReportFooterJ>rint(Cancel As Integer, PrintCount As Integer) 

39 Dim tDT, tMD, tCOU, tCID, tCOD As Double 

40 Call GetCheckDepTotals(Report, tDT, tMD, tCOU, tCID, tCOD) 

41 SumDepositTickets = tDT 

42 SumMixedDeposits = tMD 

43 SumChecksOnUs = tCOU 

44 SumChecksInDist = tCID 

45 SumChecksOutDist = tCOD 

46 End Sub 



Report: Breakdown By Service Charge Groups (Fig. 6) 
Objectives: 1 . Categorize Depository Costs (6a) 

2. Categorize Check Costs (6b) 

3. Categorize Account Maintenance Costs (6c) 



Sample VBA Code: Breakdown By Service Charge Groups 
For the report output: 

SELECT IIf([AvgDlyPos]=0,([FedPct]/100)*[AdjBal] / ([FedPct]/100)*[AvgDtyPos]) AS ReserveReq, 
AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisHdr.AvgBal, AnalysisHdr.Avg Float, 
AnalysisHdr.FedPct, AnalysisHdr.ECRate, [AvgDlyNeg]+[AdjBal] AS AvgDIyPos, AnalysisHdr.AvgDIyNeg, Banks. Ban kName, 
Customer.CustomerName, [AvgBal]-[AvgFloat] AS AdjBal, Banks.City, Banks.State, [AvgDlyPos]-[ReserveReq] AS 
AvailableBalance, [Availab!eBa!ance]*[ECRate]/1200 AS EarningsCredit, AnalysisHdr.NumberOfStores, 
[AvgFloat]/[NumberOfStores] AS AvgFloatPerStore, AnalysisHdr.AnalysisNo, IIf([AvgDlyPos]=0,[AdjBal]- 
[FedRes],[AvgDlyPos]-[FedRes]) AS AvailableBal, 

IIf([AvgDlyPos]=0,([FedPct]/100)*[AdjBal]X[FedPct]/100)*[AvgDlyPos]) AS FedRes, AnalysisHdr.NegCollectedRate, 
Customer.PDLl, Customer.PDL2 # Customer. PDL3, Customer. PDL4, AnalysisHdr.ChecksOutDist, AnalysisHdr.ChecksInDist, 
AnalysisHdr.MixedDeposits, AnalysisHdr.DepositTickets, AnalysisHdr.ChecksOnUs, 
IIf([TotalChecksRoated]>0 / tAvgRoat]/[TotalChecksFloated]*30,0) AS AvgCheckSize, 

[ChecksOutDist]+[ChecksInDist]+[MixedDeposits] AS TotalChecksFloated, AnalysisHdr.DepCost, AnalysisHdr.BAICost, 
AnalysisHdr.DepReconCost, AnalysisHdr.NightBagsCost 

FROM Customer INNER JOIN (Banks INNER JOIN AnalysisHdr ON Banks.BankCode = AnalysisHdr.BankCode) ON 
Customer.CustomerNo = AnalysisHdr.CustomerNo 
ORDER BY AnalysisHdr.AvgFloat DESC; 



For the calculations: 



Code 

1 VERSION 1.0 CLASS 
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2 BEGIN 

3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = "Rep rt_Breakdown By Service Charge Groups" 

6 Attribute VB_GI balNameSpace = False 

7 Attribute VB_Creatable = True 

8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

13 Private Sub DetaiLPrint(Cancel As Integer, PrintCount As Integer) 

14 Dim crt As String 

15 crt = "[CustomerNo] = ,n & Forms'analysisHdr.CustomerNo & "'" 

16 crt = crt & n AND [BankCode] = in & Report-BankCode & ™ 

17 crt = crt & n AND [RevDate] = #" & FormslanalysisHdr. RevDate & n #" 
18 

19 AnnualServiceCharges = DSum("[ExtCharge]", "AnalysisDtlQ", crt) * 12 

20 ' Calculate the totals 

21 DepositCost = CalcCostTotal(crt, 2) * 12 

22 CheckDepCost = CalcCostTotal(crt, 1) * 12 

23 BallnfoCost = CaIcCostTotal(crt, 3) * 12 

24 TotalCost = DepositCost + CheckDepCost + BallnfoCost 

25 'derive %'s 

26 DepositCostPer = DepositCost / AnnualServiceCharges 

27 CheckDepCostPer = CheckDepCost / AnnualServiceCharges 

28 BallnfoCostPer = BallnfoCost / AnnualServiceCharges 

29 TotalCostPEr = TotalCost / AnnualServiceCharges 
30 

31 End Sub 
32 

33 Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) 

34 Dim crt As String 

35 crt = "[CustomerNo] = ,n & FormslanalysisHdr.CustomerNo & mn 

36 crt = crt & " AND [RevDate] = #" & FormsianalysisH dr. RevDate & "#" 
37 

38 SAnnualServiceCharges = DSum("[ExtCharge] n / "AnalysisDtlQ", crt) * 12 

39 1 Calculate the totals 

40 SDepositCost = CalcCostTotal(ot, 2) * 12 

41 SCheckDepCost = CalcCostTotal(crt, 1) * 12 

42 SBallnfoCost = CalcCostTotal(crt, 3) * 12 

43 STotalCost = SDepositCost + SCheckDepCost + SBallnfoCost 

44 1 derive %'s 

45 SDepositCostPer = SDepositCost / SAnnualServiceCharges 

46 sCheckDepCostPer = SCheckDepCost / SAnnualServiceCharges 

47 SBallnfoCostPer = SBallnfoCost / SAnnualServiceCharges 

48 STotalCostPer = STotalCost / SAnnualServiceCharges 
49 

50 End Sub 



Report: Breakdown By User Supplied Groups (Fig. 7) 

Objective: Categorize any user defined bank cost 
To achieve this special objective, an additional Category table, shown in Fig. 28, is added 
to the database. This table works in conjunction with the Service Codes table shown in 
Fig. 17. A Category Select Form is also used in this process. A screen display of the 
form is shown in Fig. 29. The example in Fig. 29 shows categories, 60 (night bags), 62 
(rolled coins) and 64 (return checks) as being selected. 
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Sample VBA Code: Breakdown By Service Charges Variable 



C de 

1 VERSION 1.0 CLASS 

2 BEGIN 

5 3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name - "Report_Breakdown By Service Charges Variable" 

6 Attribute VB.GIobalNameSpace = False 

7 Attribute VB_Creatable = True 

10 8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

15 13 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

14 Dim crt, CatCodel, CatCode2, CatCode3 As String 

15 crt = "[CustomerNo] = ,n & FormsSanalysisHdr.CustomerNo & n,n 

16 crt = crt & " AND [BankCode] = ,n & Report.BankCode & n,n 

17 crt = crt & " AND [RevDate] = #" & FormslanalysisHdr.RevDate & "# n 
20 is 

19 CatCodel = Forms!CatSelect!CatCodel 

20 CatCode2 = Forms!CatSelect!CatCode2 

21 CatCode3 = Forms!CatSelect!CatCode3 

22 AnnualServiceCharges = DSum("[ExtCharge] n , "AnalysisDtlQ", crt) * 12 
25 23 ' Calculate the totals 

,e f 24 1 Var names are carried over from base report, they're actually Catl, Cat2, Cat3 

l ;J 25 DepositCost = Ca!cCostTotal(crt, CatCodel) * 12 

ul 26 CheckDepCost = CalcCostTotal(crt, CatCode2) * 12 

27 BallnfoCost = CalcCostTotal(crt, CatCode3) * 12 

^ 30 28 TotalCost = DepositCost + CheckDepCost + BallnfoCost 

«;« 29 1 derive °/o's 

-J 30 DepositCostPer = DepositCost / AnnualServiceCharges 

j;n 31 CheckDepCostPer = CheckDepCost / AnnualServiceCharges 

i-j | 32 BallnfoCostPer = BallnfoCost / AnnualServiceCharges 

■ y 35 33 TotalCostPEr = TotalCost / AnnualServiceCharges 

34 

□ 35 End Sub 

" 37 Private Sub PageHeader_Print(Cancel As Integer, PrintCount As Integer) 

H= 40 38 Dim crt As String 

|.± 39 

«== 40 crt = "[CategoryCode] = " & Form sICatSelect! CatCodel 

!f 41 CatLabell = DLookup("[Description] n / "Category", crt) 

U 42 

45 43 crt = "[CategoryCode] = " & Forms!CatSetect!CatCode2 

44 CatLabel2 = DLookup("[Description]" r "Category", crt) 

45 

46 crt = "[CategoryCode] = " & Forms!CatSelect!CatCode3 

47 CatLabel3 = DLookup("[Descriptton] n / "Category", crt) 
50 48 

49 End Sub 
50 

51 Private Sub Report_Activate() 

52 DoCmd. Maximize 
55 53 End Sub 

54 

55 Private Sub ReportFooter_Print( Cancel As Integer, PrintCount As Integer) 

56 Dim crt, CatCodel, CatCode2, CatCode3 As String 

57 crt = "[CustomerNo] = '" & Forms!analysisHdr.CustomerNo & n,n 

60 58 crt = crt & " AND [RevDate] = #" & F rms!analysisHdr. RevDate & "# n 

59 

60 CatCodel = F rms!CatSelect! CatCodel 

61 CatCode2 = F rms!CatSelect!CatCode2 

62 CatC de3 = Forms!CatSelect!CatCode3 

65 63 SAnnualServiceCharges = DSum( n [ExtCharge] n , "AnalysisDtiQ", crt) * 12 
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64 ' Calculate the totals 

65 SDep sitCost = CalcCostT tal(crt, CatCode2) * 12 

66 SCheckDepCost = CalcCostTotal(crt, CatCodel) * 12 

67 SBallnf C st = CalcCostT tal(crt, CatCode3) * 12 

68 ST talC st = SDep site st + SCheckDepC st + SBallnfoC st 

69 ' derive %'s 

70 SDepositCostPer = SDepositCost / SAnnualServiceCharges 

71 sCheckDepCostPer = SCheckDepCost / SAnnualServiceCharges 

72 SBallnfoCostPer = SBallnfoCost / SAnnualServiceCharges 

73 STotalCostPer = STotalCost / SAnnualServiceCharges 

74 End Sub 

This report uses the same query as Breakdown by Service Charge groups for Report 
selection. However, in this report, the users can supply their own categories. 

Report: Unit Price Summary (Fig. 8) 
1 5 Objective: Show every service charge assessed to a client 

Sample code for the report output: 

SELECT AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisDtl.ServiceCode, 
Banks. BankName, Banks.City, Banks.State, Customer.CustomerName, AnalysisDtl.Activity, 
AnalysisDtl.UnitPrice, ServiceCodes.ServiceDescription, [UnitPrice]*[Activity]/[Per] AS ExtAmt, 

20 ServiceCodes.Per, AnalysisDti.ConCharge, AnalysisDtl.ConDate 

FROM ServiceCodes INNER JOIN (((AnalysisDtl INNER JOIN Banks ON AnalysisDtl.BankCode = 
Banks.BankCode) INNER JOIN Customer ON AnalysisDtl.CustomerNo = Customer.CustomerNo) INNER JOIN 
AnalysisHdr ON (AnalysisHdr.RevDate = AnalysisDtl. RevDate) AND (AnalysisHdr.BankCode = 
AnalysisDtl.BankCode) AND (AnalysisHdr.CustomerNo = AnalysisDtl.CustomerNo) AND 

25 (Customer.CustomerNo = AnalysisHdr.CustomerNo) AND (Banks.BankCode = AnalysisHdr.BankCode)) ON 

ServiceCodes.ServiceCode = AnalysisDtl.ServiceCode 
WHERE (((AnalysisDtl.ServiceCode)< n 95000")); 

This report features a customizable form to further allow varying degrees of results. A 
sample screen display of the form is shown in Fig. 30. The following source code 
30 controls the flexible data entry form shown in Fig. 30. It allows for the user to selectively 
choose any combination of clients, banks, and/or service charges. It also allows for entry 
of date ranges and dollar figures, and provides a method of highlighting particular 
information once the report is generated. 



5 
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Code 

35 1 VERSION 1.0 CLASS 

2 BEGIN 

3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = "Form_AnalysisRpt Select" 
40 6 Attribute VB_GlobalNameSpace = False 

7 Attribute VB_Creatable = True 

8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exp sed = False 
10 Opti n Compare Database 

45 11 Opti n Explicit 

12 

13 Private Sub BankCheck_Click() 
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14 ' if the user wants every bank, don't let them select from the list box 

15 Dim cti As Control, itm As Variant 

16 Set cti = Me!BankUst 

17 If BankCheck Then 

18 'turn ff anything they had selected 

19 For Each itm In cti.ItemsSelected 

20 cti.Selected(itm) = False 

21 Next itm 

22 1 turn the Bank list box and counter OFF 

23 BankList.Enabled = False 

24 BanksSelected.Visible = False 

25 ' turn the OK button ON 

26 Commandl6.Enabled = True 

27 Else 

28 ' turn the Bank List box and counter ON 

29 BankListEnabled = True 

30 BanksSelected.Visible = True 

31 End If 
32 

33 End Sub 
34 

35 Private Sub BankList_Click() 
36 

37 ' Controls the OK button, and makes sure we don't build too big of a query 

38 ' This procedure is also triggered when the Customer & service boxes are clicked 

39 Dim totSelected As Integer 

40 totSelected = BankList.ItemsSelected.Count + CustomerList.ItemsSelected.Count + 
ServiceListltemsSelected.Count 

41 

42 Select Case totSelected 

43 Case 0 

44 If BankCheck Or ServiceCheck Or Customer-Check Then 

45 Commandl6.Enabled = True 

46 Else 

47 Commandl6.Enabled = False 

48 End If 
49 

50 Case Is <= 30 1 Access limit is 40, I'm not taking any chances with memory 

51 Commandl6.Enabled - True 

52 Case Else 

53 Commandl6. Enabled = False 

54 MsgBox "The maximum number of custom selections is 30." & vbCr & "Please 
de-select some items and try again.", vbOKOnly, "Too many items selected" 

55 End Select 
56 

57 End Sub 
58 

59 Private Sub Command 16_Click() 

60 'October 99 Carmen DeLeo, Jr. 

61 1 crtAII will be the concatenation of all the built criteria 

62 Dim Q As QueryDef, db As Database 

63 Dim highlightCustNo, crtBank, otService, crtCustomer, crtAII As String 

64 Dim ctJBank, cti Service, cti Customer As Control 

65 Dim itm As Variant 
66 

67 ' get the bank(s) selected 

gg t ************************ 

69 Set ctlBank = Me![BankList] 

70 If Not BankCheck Then ' If they didn't select AM banks, what did they select? 

71 For Each itm In ctiBank.ItemsSelected 

72 'Build the criteria string 

73 If Len(crtBank) = 0 Then 

74 crtBank = "[BankCode] = '" & ctIBank.ItemData(itm) & "'" 

75 Else 

76 crtBank = crtBank & " OR [BankCode] = '" 8i cti Bank. I tern Data (itm) & "'" 

77 End If 
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Next itm 
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Set ctl Service = MelTServiceListl 








if Not ServiceCheck Then ' If thev didn't select All services, what did thev select? 






Q5 


For Farh itm In ctl Service ItemsSelected 
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' Build it 
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If Lenf crtService^ = 0 Then 
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crtService = "[ServiceCode] = ,n & ctl Service. Item Data (itm) & "'" 
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Else 




20 


97 


crtService = crtService & " OR [ServiceCode] = '" & ctlService.Item Data (itm) & n,n 
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End If 
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Next itm 
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If Len(crtService) = 0 Then 
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MsgBox "No service codes selected." 
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Exit Sub 
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Set ctJCustomer = Me![CustomerList] 
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112 


If Not CustomerCheck Then 
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For Each itm In ctl Customer. ItemsSelected 
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If Len(crtCustomer) = 0 Then 
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crtCustomer = "[CustomerNo] = m & ctlCustomer.ItemData(itm) & "'" 
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Else 
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crtCustomer = crtCustomer & " OR [CustomerNo] = '" & ctl Customer. I tern Data (itm) 
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End If 
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Next itm 
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If LenfcrrCustomer^ = 0 Then 
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Men Box "No customers selected." 
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Exit Sub 
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End If 






154 


Else 






155 


1 oive us everv customer 
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crtCustomer = "TCustomerNol > '0'" 
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End If 
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129 


1 Put it all together for banks, services/ clients 






130 


crtAII = "( n & crtBank & n ) AND (" & crtService & ") AND ( n & crtCustomer & ")" 




55 


131 


1 tack on date and dollar ranges 






132 


crtAII = crtAII & " AND [RevDate] >= #" & MelStartDate & "# AND [Rev Date] <= #" & 








Me< End Date & 
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crtAII = crtAII & " AND [UnitPrice] >= " & Val(Me!StartDollar) & " AND [UnitPrice] <= n & 








ValfMetEndDollari 
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135 


' Run the rep rt with built criteria 
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If Sh wSummarylnfo Then 
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D Cmd.OpenRep rt "Analysis By Unit Price Summary", acViewPreview, , crtAII 
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Else 
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139 


DoCmd.OpenRep rt "Analysis By Unit Price", acViewPreview, , crtAII 






140 


End If 
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141 End Sub 
142 

143 Private Sub Commandl7_Click() 

144 D Cmd.CI se acF rm, "AnalysisRpt Select" 

145 End Sub 
146 

147 Private Sub CustomerCheck_Click() 

148 1 if the user wants every Customer, don't let them select from the list box 

149 Dim ctt As Control, itm As Variant 

150 Set ctl = Me!CustomerList 
151 

152 If CustomerCheck Then 

153 1 turn off anything they had selected 

154 For Each itm In ctl.ItemsSelected 

155 cti.Selected(itm) = False 

156 Next itm 

157 ' turn the Customer List box and counter OFF 

158 CustomerList.Enabled = False 

159 CustomersSelected.vlsible = False 

160 ' turn the OK Button ON 

161 Commandl6.Enabled = True 

162 Else 

163 ' turn the Customer List box and counter ON 

164 CustomerListEnabled = True 

165 CustomersSelected.Visible = True 

166 End If 

167 End Sub 
168 

169 Private Sub CustomerList_Click() 

170 BankList.Click 

171 End Sub 
172 

173 Private Sub ServiceCheck_Click() 

174 Dim ctl As Control, itm As Variant 
175 

176 ' if the user wants every Service, don't let them select from the list box 

177 Set ctl = MelServiceList 

178 If ServiceCheck Then 

179 1 turn off anything they had selected 

180 For Each itm In ctl.ItemsSelected 

181 ctl.Selected(itm) = False 

182 Next itm 

183 ' turn off the whole List box and counter 

184 ServiceListEnabled = False 

185 ServicesSelected.Visible = False 
186 

187 ' put the OK button back ON 

188 Commandl6.Enabled = True 

189 Else 

190 1 turn the list box and counter back ON 

191 ServiceList.Enabled = True 

192 ServicesSelected.Visible = True 

193 End If 

194 End Sub 
195 

196 Private Sub Service Li st_Click() 

197 BankList_Click 

198 End Sub 



Once the criteria are set, the report is generated. 

The following sample code generates the actual report of Unit Price Summary (Fig. 8) 
and also controls the highlighting of particular information as specified by the user above. 
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Code 

1 VERSION 1.0 CLASS 

2 BEGIN 

3 MultiUse = -1 True 
5 4 END 

5 Attribute VB_Name = "Rep rt_Ana1ysis By Unit Price" 

6 Attribute VB_GiobalNameSpace = False 

7 Attribute VB_Creatable = True 

8 Attribute VB_PredeclaredId = True 
10 9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

13 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

15 14 If Not IsNuII(Forms![AnalysisRpt Select]!highlightCustNo) Then 

15 If CustomerNo = Nz(Forms![AnalysisRpt Select] IhighlightCustNo) Then 

16 CustomerNo. ForeCol or = 255 

17 CustomerName.ForeColor = 255 

18 BankName.ForeColor = 255 
20 19 BankCode.ForeColor = 255 

20 City.ForeColor = 255 

21 State.ForeColor = 255 

22 Activity.ForeColor = 255 

23 UnitPrice.ForeColor = 255 
25 24 ExtAmtForeColor = 255 

25 RevDate.ForeColor = 255 

26 Else 

27 CustomerNo.ForeCoIor = 0 

28 CustomerName.ForeColor = 0 
30 29 BankName.ForeColor = 0 

30 BankCode.ForeColor - 0 

31 City.ForeColor = 0 

32 State.ForeColor = 0 

33 Activity.ForeColor = 0 
35 34 UnitPrice.ForeColor = 0 

35 ExtAmtForeColor = 0 

36 RevDate.ForeColor = 0 

37 End If 

38 End If 
40 39 End Sub 

40 

41 Private Sub Report_Activate() 

42 DoCmd.Maximize 

43 If Forms![AnalysisRpt Select] IShowNames Then 
45 44 CustomerName.Visible = True 

45 Else 

46 CustomerName.Visible = False 

47 End If 
48 

50 49 End Sub 
50 

51 Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer) 

52 Dim hCust As String 

53 hCust = Nz(Forms![AnalysisRpt Select]!highlightCustNo, "") 
55 54 If Len(hCust) > 0 Then 

55 HighlightedCustomer = Forms![AnalysisRpt Select]! hi g hi ightCustNo 

56 HighlightedCustomerName = DLookup( n [CustomerName] n / "Customer", "[CustomerNo] 
= ,n & hCust & n,n ) 

57 Else 

60 58 Labei36.V1sible = False 

59 End If 

60 End Sub 
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Report: Deposit Ticket Costs (Fig. 9) 



C de 

1 VERSION 1.0 CLASS 

2 BEGIN 

3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = "Report_Deposit Ticket Costs" 

6 Attribute VB_GlobalNameSpace = False 

7 Attribute VB_Creatable = True 

8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
12 

13 Private Sub Group Footerl_Print(Cancel As Integer, PrintCount As Integer) 

14 ' 

15 1 

16 End Sub 
17 

18 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

19 * setup our temp variables 

20 Dim tD, tDepC, tBAI, tBAIO, tBAIC, tDR, tDRC, tDRO, tDepR, tDepRC, tNB, tNBC As Double 

21 ' go get totals 

22 Call CalcDepTicketData(Report, tBAI, tBAIO, tDR, tDRO, tDepR, tDepRC, tNB) 

23 ' assign fields on report 

24 'Deposit = tD 

25 'DepCost = tDepC *** Commented fields are calculated in Activate proc 

26 BAI = tBAI 

27 'BAICost = tBAIC 

28 BAIOTher = tBAIO 

29 DepRecon = tDR 

30 'DepReconCost = tDRC 

31 DepReconOther = tDRO 

32 DepReorder = tDepR 

33 DepReorderCost = tDepRC 

34 NightBags = tNB 

35 'NightBagsCost = tNBC 

36 On Error Resume Next 

37 If Lossl > 0 Then Lossl.ForeColor = vbRed Else Lossl.ForeColor = vbBlack 

38 If Loss2 > 0 Then Loss2.ForeColor = vbRed Else Loss2.ForeColor = vbBlack 

39 If Loss3 > 0 Then Loss3.ForeColor = vbRed Else Loss3.ForeColor = vbBlack 

40 If Loss4 > 0 Then Loss4.ForeColor = vbRed Else Loss4.ForeColor = vbBlack 

41 On Error GoTo 0 

42 End Sub v 
43 

44 Private Sub Report_Activate() 

45 Call WriteDepTicketData 

46 End Sub 
47 

48 Private Sub Report_Deactivate() 

49 Application. Echo True 

50 End Sub 

51 

52 Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) 

53 Dim tl, t2, t3, t4, t5, t6, t7, t8, t9, tlO, til, tl2 As Double 

54 Call GetDepTicketTotals(Report, tl, t2, t3, t4, t5, t6, t7, t8, t9, tlO, til, tl2) 

55 SumDeposit = tl 

56 SumDepCost = t2 

57 SumBAI = t3 

58 SumBAIC st = t4 

59 SumBAIOther = t5 

60 Sum DepRecon = t6 

61 Sum DepReconCost = t7 
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62 SumDepReconOther = t8 

63 SumDepReorder = t9 

64 SumDepReorderCost = tlO 

65 SumNightBags = til 

66 SumNightBagsCost = tl2 
67 

68 

69 End Sub 
70 

71 Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer) 

72 InitVars 

73 End Sub 

Multiplying the SumDeposit field in line 55 above by 12 provides the projected Annual 

cost incurred for one year's worth of deposit costs. (9a) 

The BreakEvenDeposit (9a) is determined by the following formula: 

((([DepCost]+[BAICost]+[DepReconCost]+[NightBagsCost])/[DepositTickets])*365)/ 
[Forms] ![DepCost Select] ! [ReturnRate] 

where the ReturnRate is a value inputted by the user (9e) which represents a typical net 
profit percentage for the particular client. 

The values referred to in (9c) are stored in the client's profile in the database. 

Lines 37 through 40 of the code determine the appropriate color for values 
referenced in (9d). 

Report: Cash Activity Costs (Fig. 10) 
Sample VBA Code for CashActivity Costs 

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
Dim at As String 

at = "[CustomerNo] = ,n & FormslanalysisHdr.CustomerNo & '"" 

at = at & " AND [BankCode] = & Report. BankCode & " m 

at = at & " AND [RevDate] = #" & FormslanalysisHdr.RevDate & "#" 

DepPerUnitCost = 0 ' reset it- so it doesn't dupe 
' Cash Deposit Per 1000 
CashDepPerlOOO = CalcDepTotal(crt, 101) 
CashCostPerlOOO = CalcCostTotal(crt, 101) 
If CashDepPerlOOO <> OThen 

' avg unit cost has to multiply back by PerlOOO 

DepPerUnitCost = (CashCostPerlOOO / CashDepPerlOOO) * 1000 Fig. 10, item 10b 

End If 

' Cash Strapped 
DepStrappedUnitCost = 0 
CashDepStrapped = CalcDepTotal(crt, 102) 
DepStrappedCost = CalcCostTotal(crt, 102) 
If DepStrappedCost <> 0 Then 

DepStrappedUnitCost = DepStrappedCost / CashDepStrapped 
End If 
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' Cash Loose 
DepLooseUnitCost = 0 
CashDepLoose = CalcDepTotal(crt, 103) 
DepLooseCost = CalcCostTotalCcrt, 103) 
5 If CashDepLoose <> 0 Then 

DepLooseUnitCost = DepLooseCost / CashDepLoose 
End If 

1 Other Cash costs 

OtherCashUnitCost = 0 ' so it doesn't dupe 
10 OtherCash = CalcDepTotal(crt, 104) 

OtherCashTotal = CalcCostTotal(crt, 104) 
If OtherCash <> OThen 

OtherCashUnitCost = OtherCashTotal / OtherCash 
End If 

1 5 ' Last few columns 

'NightBagsCost = CalcCostTotal(crt, 60) 
AvgCashPerStore = CashDepPerlOOO / NumberOfStores 
CashOrderCost = CalcCostTotal(crt, 61) 

RolledCoinCost = CalcCostTotal(crt, 62) (Fig. 10, item 10b) 

20 BoxCoinCost = CalcCostTotaKcrt, 63) 

End Sub 

Multiplying the results from (10b) * 12 yields the results in (10c). 

Report: Banking Activity (Fig. 11) 

Objective: Summarize information 
25 This report summarizes information presented in other reports. It provides one place to 

view Deposit Ticket costs, BAI Detail costs, Dep Recon costs, Night Bag costs, and 
Rolled Coin Costs. 



Code 

1 VERSION 1.0 CLASS 

30 2 BEGIN 

3 MultiUse = -1 True 

4 END 

5 Attribute VB_Name = °Report_Banking Activity" 

6 Attribute VB_GlobalNameSpace = False 
35 7 Attribute VB_Creatable = True 

8 Attribute VB_PredeclaredId = True 

9 Attribute VB_Exposed = False 

10 Option Compare Database 

11 Option Explicit 
40 12 

13 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

14 Dim crt As String 

15 crt = "[CustomerNo] = ,n & Forms!analysisHdr.CustomerNo & n ' n 

16 crt = crt & " AND [BankCode] = m & ReportBankCode & n,n 

45 17 crt = at & n AND [RevDate] = #° & F rms!analysisHdr.RevDate & n #" 

18 

19 Dep sitTickets = CalcDepT tal(crt, 20) 

20 BAIDetail = CalcDepT talfcrt, 40) 
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D pRecon = CalcDepTotal Cert, 45) 
DepErrors = CalcDepT tal(crt, 46) 
ChecksDep sited = CalcDepT tal(crt, 1) 
CashDep sited = CalcDepTotal(crt, 101) 
NightBags = CalcDepT tal(crt 60) 
CashOrdered = CalcDepTotalCcrt, 61) 
RolledCoin = CalcDepTotalCcrt, 62) 
BoxCoin = CalcDepTotalCcrt, 63) 
ReturnChecks = CalcDepTotalCcrt, 64) 
ReturnChecksReDep = CalcDepTotalCcrt, 65) 
ReturnCheckBuyBack = CalcDepTotalCcrt, 66) 
NSFUNCOD = CalcDepTotalCcrt, 67) 



End Sub 

Private Sub Report_Activate() 
DoCmd. Maximize 
End Sub 

Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) 

' Carmen J. DeLeo July 8, 1999 

Dim crt As String 

1 No bank criteria on Sums 

crt = "[CustomerNo] = & FormslanalysisHdr.CustomerNo & n,n 

crt = crt & n AND [Rev Date] = #" & FormslanalysisHdr.RevDate & "#" 

SDepositTickets = CalcDepTotalCcrt, 20) 

SBAIDetail = CalcDepTotalCcrt, 40) 

SDepRecon = CalcDepTotalCcrt, 45) 

SDepErrors = CalcDepTotalCcrt; 46) 

SChecksDeposited - CalcDepTotalCcrt, 1) 
SCashDeposited = CalcDepTotalCcrt; 101) 
SNightBags = CalcDepTotalCcrt, 60) 
SCashOrdered = CalcDepTotalCcrt, 61) 
SRolledCoin = CalcDepTotalCcrt, 62) 
SBoxCoin = CalcDepTotalCcrt, 63) 
SReturnChecks = CalcDepTotal(crt, 64) 
SReturnChecksRedep = CaIcDepTotal(crt, 65) 
SReturnCheckBuyback = CalcDepTotal(crt, 66) 
SNSFUNCOD = CalcDepTotalCcrt, 67) 

End Sub 



CalcDepTotal function is used in many of the reports: 

Public Function CalcDepTotal(crt As String, CatCode) 
45 Dim tmpAmount, tmpCost As Double 

Dim msg, crtAll As String 

crtAII = crt & " AND [CategoryCode] = " & CatCode 

tmpAmount = NzCDSumC'tActivity]", "AnalysisDtlSubTotalsQ", crtAII), 0) 

CalcDepTotal = tmpAmount 

50 End Function 



This function is vital to determining the totals stored in the underlying Analysis Detail 
tables. As illustrated by the source code, this routine processes a category, then returns 
the total based on the Service and Category tables. 
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Report: Analysis By Unit Price (Fig. 12) 
The source code is equivalent to the above report, except for the output. 
Note: The Detail section of this report is not hidden, thereby showing the supporting data. 

SELECT AnalysisHdr.CustomerNo, AnalysisHdr.BankCode, AnalysisHdr.RevDate, AnalysisDtl.ServiceCode, 
5 Banks.BankName, Banks.City, Banks.State, Customer.CustomerName, AnalysisDtLActivity, 

AnalysisDtl. UnitPrice, ServiceCodes.ServiceDescription, [UnitPrice]*[Activity]/[Per] AS ExtAmt, 
ServiceCodes. Per, AnalysisDtl.ConCharge, AnalysisDti.ConDate 

FROM ServiceCodes INNER JOIN (((AnalysisDtl INNER JOIN Banks ON AnalysisDtl.BankCode = 
Banks.BankCode) INNER JOIN Customer ON AnalysisDtl.CustomerNo = Customer.CustomerNo) INNER JOIN 
10 AnalysisHdr ON (AnalysisHdr.RevDate = AnalysisDtl. RevDate) AND (AnalysisHdr.BankCode = 

AnalysisDtl.BankCode) AND (AnalysisHdr.CustomerNo = AnalysisDtl.CustomerNo) AND 
(Customer.CustomerNo = AnalysisHdr.CustomerNo) AND (Banks.BankCode = AnalysisHdr.BankCode)) ON 
ServiceCodes. ServiceCode = AnalysisDtl. ServiceCode 
WHERE (((AnalysisDtl.ServiceCode)<"95000 n )); 

1 5 DETERMINING PARTICULAR CATEGORY COSTS 

Fig. 31 and Fig. 32 show excerpts from charts that disclose the method for determining a 
particular category's cost, using Night Bags as an example. This functionality is used 
frequently throughout the software. 

The following code will determine the total cost. It assumes that the statement 

20 data has been keyed in, during the Dynamic Compilation phase. 

Public Function CalcCostTotal(crt, CatCode) 
1 return the cost of a group of service charges 
Dim tmpAmount, tmpCost As Double 
Dim msg, crtAII As String 

25 crtAII = crt & " AND [CategoryCode] = " & CatCode 

tmpAmount = Nz(DSum( ,, [ExtCharge]" / "AnalysisDtlSubTotalsQ", crtAII), 0) 
CalcCostTotal = tmpAmount 
End Function 

This algorithm applies directly to Breakdown By Service Charge, and by User Supplied 
30 Groups. 

SECTION IV - ILLUMINATION (Fig. 13 and Fig. 14) 
Fig. 33 is a screen display of a Working Sheet Form that is used to summarize 
ServiceDescription items, and their actual costs and potential cost savings. 

The Bank Analyzer described above allows a client to obtain information that 
35 they have never been able to access. In doing so, it permits the client to eliminate 

wasteful banking transactions, reduce the amount of transactions and obtain a reduction 
in bank service charges and other charges and fees. 
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The Bank Analyzer is preferably used by a third party entity, who has a plurality 
of clients who provide the third party entity with their respective bank information for 
analysis. The third party entity may then build up a historical database of bank charges 
and credits from a plurality of different banks, and can then provide accurate comparisons 
5 of a specific client's bank analysis. However, the Bank Analyzer may also be sold or 

licensed by the third party entity to a client, along with a database of current bank data so 
that the client may perform their own analyses. 

The present invention may be implemented with any combination of hardware 
and software. The present invention can be included in an article of manufacture (e.g., 
10 one or more computer program products) having, for instance, computer useable media. 

The media has embodied therein, for instance, computer readable program code means 
for providing and facilitating the mechanisms of the present invention. The article of 
;3 manufacture can be included as part of a computer system or sold separately. 

*S It will be appreciated by those skilled in the art that changes could be made to the 

^ 1 5 embodiments described above without departing from the broad inventive concept 

J thereof. It is understood, therefore, that this invention is not limited to the particular 

;; ; embodiments disclosed, but it is intended to cover modifications within the spirit and 

; scope of the present invention, 

y What is claimed is: 
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